home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD010b.dsk / MORONIQUIZ.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  64 lines
  1. 10  REM  MORONIQUIZ
  2. 20  REM  SUBMITTED BY
  3. 30  REM  DANIEL TOBIAS
  4. 40  REM  MAY 29,1982
  5. 100  REM  ** THESE INSTRUCTIONS WILL SET UP A TITLE PAGE AND INSTRUCTIONS
  6. 110  HOME 
  7. 120  VTAB 2: HTAB 10: PRINT "WELCOME TO"
  8. 130  VTAB 4: HTAB 13: PRINT "COMPUTER QUIZ"
  9. 140  VTAB 8: PRINT "   THE COMPUTER WILL GIVE YOU 10        MULTIPLE CHOICE QUESTIONS.  YOU ANSWER  EACH ONE BY GIVING THE LETTER OF THE    CORRECT ANSWER.  AT THE END, THE        COMPUTER WILL GIVE YOU YOUR SCORE."
  10. 150  PRINT : PRINT : INPUT "WHAT IS YOUR NAME? ";NA$
  11. 160  PRINT : PRINT "OK, ";NA$;", HERE WE GO!"
  12. 170  FOR I = 1 TO 2000: NEXT I
  13. 200  REM  ** THIS SECTION WILL SET UP THE FILE OF QUIZ QUESTIONS. 
  14. 210  DIM Q$(10),A$(10),B$(10),C$(10),CA$(10)
  15. 220  FOR I = 1 TO 10
  16. 230  READ Q$(I),A$(I),B$(I),C$(I),CA$(I)
  17. 240  NEXT I
  18. 250 SC = 0: REM  ** SET SCORE TO 0
  19. 300  REM  ** THIS PART WILL SET UP EACH QUESTION AND KEEP TRACK OF THE SCORE
  20. 310  FOR I = 1 TO 10
  21. 320  HOME 
  22. 330  VTAB 2: HTAB 16: INVERSE : PRINT "QUESTION #";I: NORMAL 
  23. 340  VTAB 8: PRINT Q$(I)
  24. 350  PRINT 
  25. 360  PRINT "A.  ";A$(I)
  26. 370  PRINT "B.  ";B$(I)
  27. 380  PRINT "C.  ";C$(I)
  28. 390  PRINT 
  29. 400  HTAB 5: INPUT "WHAT IS THE BEST CHOICE? ";AN$
  30. 410  IF  LEN(AN$) >1  THEN 400
  31. 420  IF AN$ < >"A"  AND AN$ < >"B"  AND AN$ < >"C"  THEN 400
  32. 430  IF AN$ < >CA$(I)  THEN 500
  33. 440 SC = SC +1
  34. 450  VTAB 20: PRINT "NICE WORK. YOU NOW HAVE ";SC;" RIGHT": PRINT "OUT OF ";I;"."
  35. 460  GOTO 600
  36. 500  VTAB 20: PRINT "SORRY, THE RIGHT ANSWER WAS ";: INVERSE : PRINT CA$(I);: NORMAL : PRINT ".": PRINT "SO FAR YOU HAVE ";SC;" RIGHT OF ";I;"."
  37. 600  VTAB 24: HTAB 5: INVERSE : INPUT "PRESS RETURN TO GO ON.";REDDY$: NORMAL 
  38. 610  NEXT I
  39. 700  REM  ** THIS PART WILL PRINT A SUMMARY FOR THE STUDENT.
  40. 710  HOME 
  41. 720  VTAB 3: PRINT "YOU GOT ";SC;" RIGHT OUT OF 10 QUESTIONS."
  42. 730  PRINT 
  43. 740  IF SC <10  THEN 760
  44. 750  PRINT "THAT WAS PERFECT!": PRINT : GOTO 900
  45. 760  IF SC <7  THEN 780
  46. 770  PRINT "THAT WAS VERY GOOD, BUT THERE IS STILL  ROOM FOR SOME IMPROVEMENT!": PRINT : GOTO 900
  47. 780  IF SC <5  THEN 800
  48. 790  PRINT "THAT SCORE WAS O.K., BUT YOU COULD USE  SOME MORE PRACTICE.": PRINT : GOTO 900
  49. 800  PRINT "LOOKS LIKE YOU DIDN'T STUDY THIS YET!": PRINT 
  50. 900  INPUT "WOULD YOU LIKE TO TRY THIS QUIZ         AGAIN? ";YN$
  51. 910  IF YN$ < >"Y"  AND YN$ < >"N"  THEN  INPUT "JUST TYPE Y OR N.";YN$
  52. 920  IF YN$ = "Y"  THEN 250
  53. 930  PRINT : PRINT "COME BACK AGAIN SOON.  HAVE A GOOD DAY!": END 
  54. 1000  REM  ** THESE DATA STATEMENTS CONTAIN THE QUESTIONS, THREE CHOICES AND THE CORRECT ANSWERS.
  55. 1010  DATA WESTERN EUROPE IS SURROUNDED BY,ARMED GUARDS,MEDITERRANEAN SEA AND NORTH SEA,GIANT ANTS,B
  56. 1020  DATA  ROME FELL IN,TO 'THE GAP',"TIME FOR POUGHKEEPSIE, N.Y. TO RISE",476 A.D.,C
  57. 1030  DATA  CHARLEMAGNE WAS THE LEADER OF THE,CHARLIE'S ANGELS,FRANKS AND BEANS,FRANKS,C
  58. 1040  DATA  THE VIKINGS WERE FROM,MINNESOTA,SCANDINAVIA,THE N.F.L.,B
  59. 1050  DATA  THE BREAKDOWN OF CENTRALIZED GOVERNMENT GAVE RISE TO,FEUDALISM,CENTRALIZED-GOVERNMENT REPAIRMEN,APPLE COMPUTERS,A
  60. 1060  DATA   ___ SUFFERED MOST FROM VIKING RAIDS,THE DALLAS COWBOYS,THE NEW YORK JETS,FRANCE,C
  61. 1070  DATA  INVADERS FROM NORTH AFRICA WERE CALLED,MOSLEMS,STUPID,ON THE TELEPHONE,A
  62. 1080  DATA  LAND A VASSAL RECEIVED WAS A,BASEBALL FIELD,FIEF,NUCLEAR POWER PLANT,B
  63. 1090  DATA  "BEFORE HE BECAME A SERF, A YOUNG MAN    SERVED AS A",SERFBOARD,SQUIRE,ABSOLUTE DICTATOR,B
  64. 1100  DATA  THE BISHOP OF ROME IS CALLED THE,POPE,CHESSPIECE,HEAD HONCHO,A